home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1995 September
/
JCSM Shareware Collection (September 30th 1995 Author to Vendor Edition) (JCS Distribution).ISO
/
db_fullf
/
12150m01.ziv
/
INSTALL.EXE
/
lha
/
DLITE
/
UNDELREC.FRB
(
.txt
)
< prev
next >
Wrap
FrontRunner Binary Module
|
1991-06-01
|
4KB
|
89 lines
WINCOL
CENTER
SET WINDOW TO "UNDELETE - "+FILENAME POSITION 4,CENTER SIZE &WINLIN,&WINCOL
USE &FILENAME
TONES
File is empty. UnDELETE not available.
AFLAG
AFLAG
FMT_SPEC
FMT_SPEC
TMPFILE
FILENAME
TMPFILE
TMPFILE
AFLAG
TMPFILE
(the format file) cannot be found.
TONES
INDXNAME
AFLAG
SET INDEX TO &INDXNAME
LEADINDX
INDXCOUNT
INDXCOUNT
INDXCOUNT
LEADINDX
INDXCOUNT
INDXCOUNT
INDXCOUNT
INDXCOUNT
INDXCOUNT
>@)F3
THISREC
LEADINDX
THISREC
Enter
LEADINDX
to find:
THISREC
Enter record number to find:
THISREC
THISREC
THISREC
THISREC
LEADINDX
THISREC
GOTO &THISREC
TONES
AFLAG
TONES
AFLAG
AFLAG
THISREC
THISREC
@Z 999999
Enter record number to UnDELETE:
THISREC
THISREC
THISREC
TONES
AFLAG
PASTEIT
<ESC> to abort. <PgDn> or <PgUp> to move through file.
PASTEIT
AFLAG
TMPFILE
TMPFLD
TMPFLD
OOPS=MESSAGE()
&TMPFLD
_ERROR
CODE:
TMPFLD
FILE:
TMPFILE
PASTEIT
UnDELETE this record?
PASTEIT
AFLAG
UnDELETE in progress . . .
AFLAG
AFLAG
PASTEIT
AFLAG
AFLAG
TONES
AFLAG
AFLAG